Ultra Gameplayers 101/Ultra Game Players Magazine, No. 101 - September 1997 (Imagine Publishing, Inc.)(1997).iso/pc/new_ugp.dxr/00229.ls

Text File | 1997-07-10 | 1.1 KB | 26 lines

on NewVolumeControl parentObj, spritenum
  set miniFaceSprite to spritenum
  set bkgdSprite to spritenum + 1
  set faceSprite to spritenum + 2
  set sliderSprite to spritenum + 3
  set activeSprites to [miniFaceSprite, bkgdSprite, faceSprite, sliderSprite]
  set controlSprites to [bkgdSprite, faceSprite, sliderSprite]
  set button to BasicButton(parentObj, [#hotSprites: activeSprites, #statusMessage: "Drag button to set volume."])
  AddRoll(button, NewObject(button, "Visibility Hilite Class", [#showSpriteList: controlSprites]))
  set sliderBtn to BasicButton(parentObj, [#hotSprites: [sliderSprite], #statusMessage: "Drag button to set volume."])
  set sliderParams to [#sliderSprite: sliderSprite, #faceSprite: faceSprite, #miniFaceSprite: miniFaceSprite]
  AddDown(sliderBtn, NewObject(sliderBtn, "Volume Slider Class", sliderParams))
end

on ShowVolumeControl
  set titleObj to GetGlobal(#gTitleObject)
  set sNum to the volumeSprite of titleObj
  set the visible of sprite sNum to 1
end

on HideVolumeControl
  set titleObj to GetGlobal(#gTitleObject)
  set sNum to the volumeSprite of titleObj
  set the visible of sprite sNum to 0
end